﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit1") <> "" Then

Dim sid_,keep_
sid_ = Request.Form("bbssid")
If sid_ <> "" And ifLetter(sid_)=False Then Call Error2("<title>出错</title></head><body><div class=""main320"">论坛会话标识无效！")
keep_ = Request.Form("bbsmsgkeep")
If keep_ = "" Or IsNumeric(keep_)=False Or keep_<0 Then Call Error2("<title>出错</title></head><body><div class=""main320"">消息保存天数无效！")

' if len(Request.Form("numtitle"))<1 then
	' Call Error2("<card title='出错'><p>请输入！")
' end if

'----------------------------------------------------------------
'	生成bbs.asp文件
'----------------------------------------------------------------
dim HU_Config,HU_File

HU_File= "../../config/bbs.asp"'生成bbs.asp文件路径

HU_Config="<"&"%"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsreg="""&Request.Form("bbsreg")&""" '论坛注册功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsagree="""&forQuote(Request.Form("bbsagree"))&""" '论坛注册协议"
HU_Config=HU_Config+chr(13)&chr(10)&"bbssid="""&Request.Form("bbssid")&""" '论坛会话标识" '这里不用forQuote,因为前面已判断了
HU_Config=HU_Config+chr(13)&chr(10)&"bbsmoney="""&forQuote(Request.Form("bbsmoney"))&""" '论坛金币名称"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsip="""&Request.Form("bbsip")&""" 'IP异常检测"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsessay="""&Request.Form("bbsessay")&""" '投稿功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsmsgkeep="""&Request.Form("bbsmsgkeep")&""" '消息保存天数"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsbirthday="""&forQuote(Request.Form("bbsbirthday"))&""" '消息保存天数"
HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
Call savetofile(HU_Config,HU_File)
Response.Write "<meta http-equiv=""refresh"" content=""1;url=index.asp?sid="&sid&"""><title>网站论坛配置</title></head><body><div class=""main320"">"
Response.Write "成功设置！正在返回..."
else%>
<title>网站论坛配置</title></head><body><div class="main400">
<form method="post" action="bbs.asp">
注册功能:<select name="bbsreg">
<option value="1">开启</option>
<option value="0" <% If bbsreg="0" Then w "selected"%>>关闭</option>
</select><br/>
注册协议:(支持<a href="../ubbcl.asp?sid=<%=sid%>">UBB</a>)<br/>
<textarea name="bbsagree" cols="45" rows="12"/><%=bbsagree%></textarea><br/>
<table>
<tr><td>会话标识:</td><td><input name="bbssid" type="text" value="<%=bbssidstr%>" size="4"/></td></tr>
<!--<tr><td>金币名称:</td><td><input name="bbsmoney" type="text" value="<%=bbsmoney%>" size="5"/></td></tr>-->
<tr><td>IP检测:</td><td><select name="bbsip">
<option value="1">开启</option>
<option value="0" <% If bbsip="0" Then w "selected"%>>关闭</option>
</select></td></tr>
<tr><td>投稿功能:</td><td><select name="bbsessay">
<option value="1">开启</option>
<option value="0" <% If bbsessay="0" Then w "selected"%>>关闭</option>
</select></td></tr>
<tr><td>消息保存:</td><td><input name="bbsmsgkeep" type="text" value="<%=bbsmsgkeep%>" size="2"/>(天)</td></tr>
<tr><td>生日显示:</td><td><input name="bbsbirthday" type="text" value="<%=bbsbirthday%>" class="input"/></td></tr>
</table>
<input type="submit" value="保存配置"/>
<input type="hidden" name="submit1" value="1"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
</form>
温馨提示<br/>
1、会员生日显示留空则不显示生日提示,支持UBB<br/>
2、移动手机IP不稳定，最好不要设置IP异常检测<br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last2%>